#!
@names = qw{Tom John Harry Jun Mary Halen};
@sexy = qw(boy girl);
$NameId = rand @names;
$SexyId = rand @sexy;
$_ = "$names[$NameId] is a $sexy[$SexyId].";
print "sentence:\n$_\n";
($name,$sexy)=/(.*)\sis\sa\s(.*)./;
print "name:$name\n";
print "sexy:$sexy\n";